home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
mac
/
EGYPTW.DIR
/
01703_Script_Food
< prev
next >
Wrap
Text File
|
1995-09-13
|
12KB
|
484 lines
global gBeenClicked, gQuest
on EFoodRollovers1
set gBeenClicked = 0
if (not(CheckClickedStatus(gQuest))) then
if rollover(6) then
repeat while rollover(6)
EgyptCursor
set the locH of sprite 12 to 452
set the locV of sprite 12 to 311
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
AnimateLoopFast 6, 339, 2, "SE180201.AIF", 6
end if
end if
end repeat
set the locH of sprite 12 to 952
updatestage
else
if rollover(7) or rollover(8) then
repeat while rollover(7) or rollover(8)
EgyptCursor
set the locH of sprite 11 to 251
set the locV of sprite 11 to 329
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
MilkCow
end if
end if
end repeat
set the locH of sprite 11 to 951
updatestage
else
if rollover(9) or rollover(10) then
repeat while rollover(9) or rollover(10)
EgyptCursor
set the locH of sprite 16 to 529
set the locV of sprite 16 to 313
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
Cooking
end if
end if
end repeat
set the locH of sprite 16 to 929
updatestage
else
if rollover(13) then
repeat while rollover(13)
ArrowCursor
set the locH of sprite 14 to 452
set the locV of sprite 14 to 320
updatestage
end repeat
set the locH of sprite 14 to 952
updatestage
else
if rollover(40) then
HandCursor
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end if
end if
end if
end if
RandomQuestion(gQuest)
end
on EFoodRollovers2
set gBeenClicked = 0
if (not(CheckClickedStatus(gQuest))) then
if rollover(6) then
repeat while rollover(6)
EgyptCursor
puppetsprite 19, true
set the locH of sprite 19 to 155
set the locV of sprite 19 to 306
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
FoodWineMusic
exit repeat
end repeat
end if
end if
end repeat
set the locH of sprite 19 to 955
puppetsprite 19, false
updatestage
else
if rollover(7) then
repeat while rollover(7)
EgyptCursor
set the locH of sprite 18 to 295
set the locV of sprite 18 to 315
updatestage
if the mousedown then
set GBeenClicked = 1
else
if gBeenClicked = 1 then
repeat while gBeenClicked = 1
BlowBees
end repeat
end if
end if
end repeat
set the locH of sprite 18 to 995
updatestage
else
if rollover(17) then
ArrowCursor
repeat while rollover(17)
set the locH of sprite 20 to 317
set the locV of sprite 20 to 222
updatestage
end repeat
set the locH of sprite 20 to 917
updatestage
else
if rollover(39) then
HandCursor
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end if
end if
end if
RandomQuestion(gQuest)
end
on MilkCow
ArrowCursor
set gAnimationcast = 341
set gAnimationcast2 = 343
set count = 0
set cowhead = 1
set animating = 1
repeat while count < 4 and (the mouseUP)
if animating = 1 then
set the castnum of sprite 8 = gAnimationcast + 1
puppetsound "MilkCow2.AIFF"
updatestage
wait .5
if (the mousedown) then
set animating = 0
exit repeat
end if
if cowhead = 1 then
set the castnum of sprite 7 = gAnimationcast2 + 1
updatestage
wait .3
if (the mousedown) then
set animating = 0
exit repeat
end if
set the castnum of sprite 7 = gAnimationcast2
updatestage
wait .3
set cowhead = 0
else
set cowhead = 1
end if
set the castnum of sprite 8 = gAnimationcast
updatestage
puppetsound 0
wait .3
if (the mousedown) then
set animating = 0
exit repeat
end if
set count = count + 1
end if
end repeat
set the castnum of sprite 7 = gAnimationcast2
set the castnum of sprite 8 = gAnimationcast
puppetsound 0
updatestage
set gBeenClicked = 0
end
on Cooking
ArrowCursor
set gAnimationcast1 = 350
set gAnimationcast2 = 345
set count = 0
set animating = 1
puppetsound "SE181701.AIF"
repeat while count < 2 and (the mouseUP)
if animating = 1 then
set the castnum of sprite 9 = gAnimationcast1 + 1
set the castnum of sprite 10 = gAnimationcast2 + 1
updatestage
wait .2
if (the mousedown) then
set animating = 0
exit repeat
end if
set the castnum of sprite 9 = gAnimationcast1
set the castnum of sprite 10 = gAnimationcast2 + 2
updatestage
if (the mousedown) then
set animating = 0
exit repeat
end if
wait .2
set the castnum of sprite 10 = gAnimationcast2 + 3
updatestage
if (the mousedown) then
set animating = 0
exit repeat
end if
wait .2
set the castnum of sprite 10 = gAnimationcast2 + 4
updatestage
if (the mousedown) then
set animating = 0
exit repeat
end if
wait .5
set the castnum of sprite 10 = gAnimationcast2 + 3
updatestage
if (the mousedown) then
set animating = 0
exit repeat
end if
wait .2
set the castnum of sprite 10 = gAnimationcast2
updatestage
if (the mousedown) then
set animating = 0
exit repeat
end if
wait .2
set the castnum of sprite 9 = gAnimationcast1 + 1
set the castnum of sprite 10 = gAnimationcast2 + 1
updatestage
if (the mousedown) then
set animating = 0
exit repeat
end if
wait .2
set the castnum of sprite 9 = gAnimationcast1
set the castnum of sprite 10 = gAnimationcast2 + 2
updatestage
if (the mousedown) then
set animating = 0
exit repeat
end if
wait .2
set the castnum of sprite 10 = gAnimationcast2 + 3
updatestage
if (the mousedown) then
set animating = 0
exit repeat
end if
wait .2
set the castnum of sprite 10 = gAnimationcast2 + 4
updatestage
if (the mousedown) then
set animating = 0
exit repeat
end if
wait .5
set the castnum of sprite 10 = gAnimationcast2 + 3
updatestage
if (the mousedown) then
set animating = 0
exit repeat
end if
wait .2
set the castnum of sprite 10 = gAnimationcast2 + 4
updatestage
if (the mousedown) then
set animating = 0
exit repeat
end if
wait .5
set the castnum of sprite 10 = gAnimationcast2 + 3
updatestage
if (the mousedown) then
set animating = 0
exit repeat
end if
wait .2
set count = count + 1
end if
end repeat
set the castnum of sprite 10 = gAnimationcast2
set the castnum of sprite 9 = gAnimationcast1
updatestage
puppetsound 0
set gBeenClicked = 0
end
on FoodWineMusic
ArrowCursor
set gCast1 = 558
puppetsprite 9, true
puppetsprite 10, true
puppetsprite 11, true
puppetsprite 12, true
set count = 0
repeat while count < 2 and (the mouseUP)
set the locH of sprite 11 to 490
set the locV of sprite 11 to 247
updatestage
wait .8
if (the mousedown) then
exit repeat
end if
puppetsound "SE181001.AIF"
set the locH of sprite 9 to 326
set the locV of sprite 9 to 261
set the locH of sprite 10 to 398
set the locV of sprite 10 to 263
updatestage
wait .2
if (the mousedown) then
exit repeat
end if
set the locH of sprite 11 to 862
set the locH of sprite 12 to 262
set the locV of sprite 12 to 308
updatestage
wait .2
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 8 = gcast1 + 1
set the locH of sprite 9 to 826
set the locH of sprite 10 to 898
updatestage
wait .2
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 8 = gcast1 + 2
set the locH of sprite 12 to 862
set the locH of sprite 9 to 326
updatestage
wait .2
if (the mousedown) then
exit repeat
end if
set the locH of sprite 12 to 262
set the locH of sprite 9 to 826
set the locH of sprite 10 to 398
updatestage
wait .2
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 8 = gcast1 + 1
set the locH of sprite 12 to 862
set the locH of sprite 9 to 326
updatestage
wait .2
if (the mousedown) then
exit repeat
end if
set the castnum of sprite 8 = gcast1
set the locH of sprite 9 to 826
set the locH of sprite 10 to 898
updatestage
wait .2
if (the mousedown) then
exit repeat
end if
set the locH of sprite 9 to 326
set the locH of sprite 10 to 398
updatestage
wait .2
if (the mousedown) then
exit repeat
end if
set the locH of sprite 12 to 262
set the locH of sprite 9 to 826
set the locH of sprite 10 to 898
updatestage
wait .2
if (the mousedown) then
exit repeat
end if
set the locH of sprite 9 to 326
set the locH of sprite 10 to 398
set the locH of sprite 12 to 862
updatestage
wait .2
if (the mousedown) then
exit repeat
end if
set the locH of sprite 12 to 262
set the locH of sprite 9 to 826
set the locH of sprite 10 to 898
updatestage
wait .2
if (the mousedown) then
exit repeat
end if
set the locH of sprite 9 to 326
set the locH of sprite 10 to 398
set the locH of sprite 12 to 862
updatestage
wait .2
if (the mousedown) then
exit repeat
end if
set count = count + 1
end repeat
set the castnum of sprite 8 = gcast1
set the locH of sprite 12 to 862
set the locH of sprite 11 to 890
set the locH of sprite 9 to 826
set the locH of sprite 10 to 898
updatestage
puppetsound 0
set gBeenClicked = 0
end
on BlowBees
puppetsound "SE180601.AIF"
puppetsprite 13, true
repeat while gBeenClicked = 1 and (the mouseup)
set the locH of sprite 13 = 129
set the locV of sprite 13 = 317
updatestage
if not(soundBusy(1)) then
exit repeat
end if
if (the mousedown) then
exit repeat
end if
end repeat
set the locH of sprite 13 = 929
updatestage
puppetsprite 13, false
puppetsound 0
set gBeenClicked = 0
end